home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / patches / updidfx2.lha / UpdateIDEfix / Update < prev    next >
Text File  |  1996-01-04  |  2KB  |  110 lines
  1. FailAT 30
  2.  
  3. assign EB: ""
  4.  
  5. resident CryptCopy pure
  6. if warn
  7.     skip exit
  8. endif
  9.  
  10. resident WaitDiskIns pure
  11. if warn
  12.     skip exit
  13. endif
  14.  
  15. resident C:MakeDir pure
  16. if warn
  17.     skip exit
  18. endif
  19.  
  20. resident C:Execute pure
  21. if warn
  22.     skip exit
  23. endif
  24.  
  25. WaitDiskIns "UpdateIDEfix" "Insert a copy of your*nIDEfix disk in any drive!" "IDEfix:"
  26. if warn
  27.     skip exit
  28. endif
  29.  
  30. version >NIL: IDEfix:C/IDEfix 100 file
  31. if warn
  32.  
  33.     StartUpdate MLC_IDEfix.key IDEfix:C/IDEfix 85 2 IDE-fix 84 2
  34.     if warn
  35.         skip exit
  36.     endif
  37.  
  38.     CD EB/MLC
  39.  
  40.     list >RAM:CopyList lformat "MakeDir >NIL: IDEfix:%s%s" all dirs
  41.     if warn
  42.         skip exit
  43.     endif
  44.  
  45.     execute RAM:CopyList
  46.  
  47.     list >RAM:CopyList lformat "CryptCopy %s%s IDEfix:%s%s" all files
  48.     if warn
  49.         skip exit
  50.     endif
  51.  
  52.     execute RAM:CopyList
  53.  
  54.     CD EB:
  55.  
  56. else
  57.  
  58.     StartUpdate IDEfix.key IDEfix:C/IDEfix 105 2 IDE-fix 104 1
  59.     if warn
  60.         skip exit
  61.     endif
  62.  
  63.     CD EB/IDEFIX
  64.  
  65.     list >RAM:CopyList lformat "MakeDir >NIL: IDEfix:%s%s" all dirs
  66.     if warn
  67.         skip exit
  68.     endif
  69.  
  70.     execute RAM:CopyList
  71.  
  72.     list >RAM:CopyList lformat "CryptCopy %s%s IDEfix:%s%s" all files
  73.     if warn
  74.         skip exit
  75.     endif
  76.  
  77.     execute RAM:CopyList
  78.  
  79.     CD EB:
  80. endif
  81.  
  82. CD EB/COMMON
  83.  
  84. list >RAM:CopyList lformat "MakeDir >NIL: IDEfix:%s%s" all dirs
  85. if warn
  86.     skip exit
  87. endif
  88.  
  89. execute RAM:CopyList
  90.  
  91. list >RAM:CopyList lformat "CryptCopy %s%s IDEfix:%s%s" all files
  92. if warn
  93.     skip exit
  94. endif
  95.  
  96. execute RAM:CopyList
  97.  
  98. WaitDiskIns "UpdateIDEfix" "Update complete! You may*nremove the IDEfix disk!" REMOVE
  99.  
  100. lab exit
  101. CD EB:
  102. EndUpdate >NIL:
  103. resident >NIL: CryptCopy remove
  104. resident >NIL: WaitDiskIns remove
  105. resident >NIL: MakeDir remove
  106. resident >NIL: Execute remove
  107. delete >NIL: RAM:CopyList quiet
  108. assign >NIL: EB:
  109.  
  110.